";
foreach($bzv1_dtls as $bzv1_key => $bzv1_val)
{
$titl_desc=array();
// echo "
BZV1 VAL ".$bzv1_val;
$keyword=$bzv1_val;
// echo "
KEY WORD ".$keyword;
/////////////WIKI /////
$invr_dale=$keyword;
$sinvr_dale=str_replace(" ","_",$invr_dale);
$sinvr_bzv1=str_replace(" ","+",$invr_bzv1);
$splt_rslt=xtrt_wiki($taal_text,$sinvr_dale);
$splt_extr=substr($bzv1_val,0,5);
// echo "
SPLT EXTR ".$splt_extr;
// echo "
INVR TABL ".$invr_tabl;
//////////////
if ($invr_tabl == null)
{
$invr_tabl="gw27";
}
if ($invr_taal == null)
{
$invr_taal="nederlands";
}
$tabl_rslt=xtrt_xxxx("xsimx".$keyword,"nederlands",$invr_tabl,8);
if (count($tabl_rslt) > 0)
{
echo "";
foreach($tabl_rslt as $tabl_key => $tabl_val)
{
$tabl_dtls=explode("!!",$tabl_key);
// echo "KEY ".$tabl_key." VAL ".$tabl_val." |
";
// print_r($tabl_dtls);
$tabl_scre=$tabl_dtls[0];
$tabl_taal=$tabl_dtls[1];
$tabl_domn=$tabl_dtls[2];
$tabl_lnks=$tabl_dtls[3];
$tabl_rchs=$tabl_dtls[4];
$tabl_datm=$tabl_dtls[5];
$tabl_levl=$tabl_dtls[6];
$tabl_ipad=$tabl_dtls[7];
echo "".$tabl_lnks." | ".$tabl_rchs." | ";
}
echo "
";
}
///////////////
// echo "
Zijn er alternatieven?";
// print_r($splt_rslt);
ksort($splt_rslt);
echo "";
foreach($splt_rslt as $splt_key => $splt_val)
{
// echo "".$splt_val." |
";
// $splt_extr=explode("@",$splt_val);
// $splt_key=$splt_extr[0];
// $splt_val=$splt_extr[1];
// $bzv1_val=$splt_extr[2];
// $splt_val=trim($splt_val);
$ssplt_val=str_replace(" ","+",$splt_val);
$botl_text=$invr_bzv1." betekent+".$ssplt_val;
$sbotl_text=$ssplt_val;
// $sbotl_text=str_replace(" ","+",$botl_text);
echo "
".$sbotl_text;
$lsplt_val="".$splt_val."";
echo "".$lsplt_val." |
";
}
////////// //////
// echo '<category><pattern>'.$invr_bzv1.'</pattern>';
// echo '<template><set name="invrptrn">'.$invr_bzv1.'</set><button>';
// echo '<text>Praat met semanta over <get name="invrptrn"></get>... '.$splt_val.'</text>';
// echo '<url>https://www.semanta.nl/semanta/extract.php?lgrm=<get name="invrptrn"></get></url>';
// echo '</button>';
// echo '</template></category>';
// echo "
KEY ".$splt_key ."VAL ".$splt_val;
$ltref_text="".$splt_val."";
if (strlen($splt_val)>128)
{
$ltref_text="".$splt_val."";
}
// echo "".$ltref_text." | ";
//////
$smts_rslt=tlkd_smts($splt_val);
// print_r($smts_rslt);
// $tlkd_rslt=tlkd_smta($invr_domn);
// print_r($tlkd_rslt);
////////////////////////////
// echo "
SPLT VAL ".$splt_val."";
echo "
";
foreach ($smts_rslt as $tlkd_key => $tlkd_val)
{
$sg=0;
$key_itms=explode("!!",$tlkd_key);
$tlkd_val=trim($tlkd_val);
// print_r($key_itms);
$key_gram=$key_itms[0];
$key_sgmt=trim($key_itms[1]);
$key_posn=$key_itms[2];
// echo "
KEY GRAM ".$key_gram." KEY SGMT ".$key_sgmt." KEY POSN ".$key_posn;
$sgmt_posn=strpos($splt_val,$key_gram,0);
// $gw27_rslt=xtrt_xxxx("xdotx".$key_gram,"nederlands","gw27");
// print_r($gw27_rslt);
////////////////////
foreach($gw27_rslt as $gram_key => $gram_val)
{
if ($sg < 5);
{
$sg=$sg+1;
// echo "
>GRAM Key ".$gram_key." GRAM VAL ".$gram_val;
}
$rule_itms=explode("!!",$gram_key);
$tref_scre=$rule_itms[0];
$tref_taal=$rule_itms[1];
$tref_domn=$rule_itms[2];
$domn_itms=explode("@",$tref_domn);
$tref_vrag=$rule_itms[3];
$tref_antw=$rule_itms[4];
$tref_datm=$rule_itms[5];
$tref_levl=$rule_itms[6];
$tref_ipad=$rule_itms[7];
}
////////////////////
if ($sgmt_posn === false)
{
// echo "
The string ".$tlkd_form." was not found in the string ".$line_bzv1;
}
else
{
// echo "
TLKD KEY ".$tlkd_key." TLKD VAL ".$tlkd_val;
// echo "
KEY GRAM ".$key_gram;
if ($krelt != $key_gram)
{
$sgmt_itms=explode(" ",$key_gram);
if (count($sgmt_itms) > 1)
{
$krelt=$key_sgmt;
$cmds_ipad=$_SERVER['REMOTE_ADDR'];
// $cmds_bzv2=$bzv1_val."[splt[".$tref_taal."[wiki[".$splt_val."[".$sgmt_posn;
$cmds_bzv2=$key_gram."[splt[".$invr_taal."[".$splt_val."[".$invr_bzv1."[".$key_posn;
// echo "
SPLT INVR BZV2 ".$cmds_bzv2."
";
// require_once("chbt-cmds-code-2.php");
}
}
}
///////////////////////////
if (count($smts_rslt) == 0)
{
$invr_lgrm=$splt_val;
// echo "
No data for ".$invr_bzv1;
$sql0 = "SELECT * FROM base where `taal`= '$invr_lgrm' or`domn`= '$invr_lgrm' or `lnks`= '$invr_lgrm' or `rchs` = '$invr_lgrm' ";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$tablresult = mysql_query($sql0, $link);
$tabl_num = mysql_num_rows($tablresult);
$corp_num=$tabl_num;
// echo "
Aantallen ".$sql0." ".$tabl_num." SQL ";
while ($row = mysql_fetch_assoc($tablresult))
{
$tabl_ipad="WIKIPEDIA";
$id=$row['id'];
$ipad=$row['ipad'];
$taal=$row['taal'];
$taal_array[$taal]=$taal_array[taal]+1;
$domn=$row['domn'];
$domn_array[$domn]=$domn_array[$domn]+1;
$lnks=$row['lnks'];
$lnks_array[$lnks]=$lnks_array[$lnks]+1;
$rchs=$row['rchs'];
$rchs_array[$rchs]=$rchs_array[$rchs]+1;
$rndm_chce=$taal."!!".$domn."!!".$rchs."!!".$lnks;
$ldomn="
".$domn."";
$llnks="
".$lnks."";
$ltaal="
".$taal."";
$lrchs="
".$rchs."";
$lsmta="
Conversatie";
$lqstn="
".$vertalingen."";
// echo "".$ltaal." | ".$ldomn." | ".$llnks." | ".$lrchs." | ".$lqstn." | ".$lsmta." |
";
}
// echo "
TAAL ".count($taal_array)." Gesprekspartner ".count($domn_array)." Kennisdomein ".count($lnks_array)." Corpus ".count($rchs_array);
}
foreach($smts_rslt as $smts_key => $smts_val)
{
// echo "
SMTS ".$smts_key;
$smts_itms=explode("!!",$smts_key);
$smts_posn=$smts_itms[2];
$smts_sgmt=$smts_itms[0];
$ssmts_sgmt=str_replace(" ","+",$smts_sgmt);
$smts_gram=$smts_itms[1];
$csmts_sgmt="".$smts_sgmt."";
$rsmts_strn=str_replace($smst_sgmt,$csmts_sgmt,$smts_strn);
// echo "
SMTS ".$smts_sgmt." ".$smts_posn;
if (substr_count($smts_sgmt, ' ') > 1)
{
$cmds_ipad=$_SERVER['REMOTE_ADDR'];
$cmds_bzv2=$smts_sgmt."[smta[".$invr_taal."[".$invr_bzv1."[".$splt_val."[".$smts_posn;
// echo "
WIKI SMTS ".$cmds_bzv2;
include ("chbt-cmds-code-2.php");
}
if ($smts_posn == "0")
{
$asmts_sgmt= $smts_sgmt." * ";
}
if ($smts_posn == "99")
{
$asmts_sgmt= "* ".$smts_sgmt;
}
if ($smts_posn == "50")
{
$asmts_sgmt= "* ".$smts_sgmt." *";
}
$aiml_array[$asmts_sgmt]=$aiml_array[$asmts_sgmt]+1;
// echo "
ASMTS ".$asmts_sgmt." ".$smts_posn;
$usmts_sgmt=urlencode($asmts_sgmt);
$psmts_sgmt=str_replace(" ","+",$ssmts_sgmt);
$lsmts_sgmt="".$smts_sgmt."";
if ($smts_cntr > 2 and substr($smts_tlgr,2,2) =="sb" )
// if ($smts_cntr > 0)
{
// $fill_array[$smts_key]=$fill_array[$smts_key]+1;
$rsmts_strn=str_replace($smts_sgmt,$csmts_sgmt,$smts_strn);
// echo "NOUN FORM".$smts_tlgr." ".$smts_gram." | ".$smts_cntr."-".$rsmts_strn." | ".$lsmts_sgmt." |
";
$zoek_array[$smts_sgmt]=$zoek_array[$smts_sgmt]+1;
}
else
{
// echo "
".$smts_key;
$fill_array[$smts_key]=$fill_array[$smts_key]+1;
}
}
foreach($smts_rslt as $smts_key => $smts_val)
{
$smts_itms=explode("!!",$smts_key);
// echo "
SMTS KEY ".$smts_key;
$smts_posn=$smts_itms[2];
$smts_sgmt=$smts_itms[0];
$smts_gram=$smts_itms[1];
$csmts_sgmt="".$smts_sgmt."";
// echo "
".$csmts_sgmt;
$rsmts_strn=str_replace($smst_sgmt,$csmts_sgmt,$smts_strn);
// if ($smts_cntr > 1 and ( substr($smts_tlgr,2,2) =="xp" or substr($smts_tlgr,0,2) =="xp" and strlen($smts_sgmt) > 3 ))
if (substr_count($smts_sgmt, ' ') > 2)
// if ($smts_cntr > 1 )
{
$cmds_ipad=$_SERVER['REMOTE_ADDR'];
$cmds_bzv2=$smts_sgmt."[wiki[".$invr_taal."[".$wrds_key."]".$splt_val."[".$smts_posn;
// echo "
WIKI SMTS ".$cmds_bzv2;
// $fill_array[$smts_key]=$fill_array[$smts_key]+1;
$rsmts_strn=str_replace($smts_sgmt,$csmts_sgmt,$smts_strn);
// echo "VERB FORM ".$smts_tlgr." ".$smts_gram." | ".$smts_cntr."-".$rsmts_strn." | ".$smts_posn." |
";
$zoek_array[$smts_sgmt]=$zoek_array[$smts_sgmt]+1;
}
else
{
// echo "
".$smts_key;
$fill_array[$smts_key]=$fill_array[$smts_key]+1;
}
}
if ($splt_val == null and $invr_dale !=null)
{
echo " | DOE DAN MAAR".$invr_dale."-".$bzv1_val." | ";
// echo "".$bzv1_val." |
";
}
if ($splt_val != null)
{
$wiki_wrds=explode(" ",$splt_val);
print_r($wiki_wrds);
$tlkd_pos = strpos($splt_val,$invr_dale,0);
if ($tlkd_pos === false)
{
$antw_wrds=explode(" ",$splt_val);
foreach($antw_wrds as $wrds_key => $wrds_val)
{
if ($wrds_val != $invr_dale and strlen($wrds_val) > 3)
{
$wrds_array[$wrds_val]=$wrds_array[$wrds_val]+1;
$cmds_bzv2=$wrds_val."[splt[".$invr_taal."[".$keyword."[".$splt_val."@".$wrds_val."[".$splt_key;
// echo "
WRDSVAL BZV2 ".$cmds_bzv2;
// include ("chbt-cmds-code-2.php");
$cmds_bzv2=$splt_val."[splt[".$invr_taal."[".$keyword."[".$wrds_val."@".$splt_val."[".$splt_key;
// echo "
SPLT VAL BZV2 ".$cmds_bzv2;
// include ("chbt-cmds-code-2.php");
}
}
}
else
{
if ($hrelt != $splt_val)
{
// echo "".$invr_dale." | ".$splt_val." |
";
$hrelt = $splt_val;
}
}
}
}
echo "
";
echo "